R/base functions.r

In Eiriksen/EirikFunctions: What the Package Does (One Line, Title Case)

every_nth <- function(x, nth, empty = TRUE, inverse = TRUE) {
  # Source: User Maninal at Stackoverflow 
  if (!inverse) {
    if(empty) {
      x[1:nth == 1] <- ""
      x
    } 
    else {
      x[1:nth != 1]
    }
  } 
  else {
    if(empty) {
      x[1:nth != 1] <- ""
      x
    } 
    else {
      x[1:nth == 1]
    }
  }
}

seq_minors=function(from, to, step, majors) {
  sequence = seq(from, to, step)
  return( every_nth(sequence,majors))
}